home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / stripper.arc / MENU.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  1.1 KB  |  35 lines
  1. 10  DIM PROG$(81)
  2. 20  SCREEN 0: KEY OFF:KEY 1,"RUN"+CHR$(34)+"MENU.BAS"+CHR$(13)
  3. 30  WIDTH 80:COLOR 14,3:CLS:LOCATE 10,30:PRINT"Please wait one moment ! !":FOR X=1 TO 1000:NEXT X
  4. 40  WIDTH 80:COLOR 0,0:CLS:FILES "*.BAS"
  5. 50  FOR DR%=2 TO 24
  6. 60  FOR DC%=1 TO 72 STEP 18
  7. 70  IF CHR$(SCREEN(DR%,DC%))=" " THEN 130
  8. 80  AR%=AR%+1
  9. 90  FOR L%=0 TO 7
  10. 100  PROG$(AR%)=PROG$(AR%)+CHR$(SCREEN(DR%,DC%+L%))
  11. 110  NEXT: NEXT: NEXT:
  12. 120  WIDTH 80
  13. 130  CLS:I%=0:P$="":LOCATE 1,5: COLOR 14,0:PRINT "Function Key = F1          BASIC PROGRAMS ON THIS DISKETTE:"
  14. 140  FOR DC%=1 TO 61 STEP 20
  15. 150  FOR DR%=3 TO 22
  16. 160  I%=I%+1
  17. 170  IF PROG$(I%)="" THEN 214 ELSE LOCATE DR%,DC%
  18. 180  COLOR 12,0:PRINT USING "##";I%+9;:
  19. 190  COLOR 15,0:PRINT" - ";:COLOR 10,0:PRINT PROG$(I%);
  20. 200  NEXT DR%
  21. 210  NEXT DC%
  22. 214  LOCATE DR%,DC%:COLOR 12,0:PRINT USING "##";I%+9;:
  23. 215  COLOR 15,0:PRINT" - NEW PROGRAM";
  24. 217  P$=""
  25. 220  COLOR 14,0:LOCATE 24,24: PRINT "TYPE PROGRAM NUMBER DESIRED:   ";:COLOR 12,0:PRINT P$;
  26. 230  I$=INKEY$:IF I$="" THEN GOTO 230 ELSE IF I$="m" OR I$="M" THEN COLOR 7,0:CLS:SYSTEM
  27. 240  P$=P$+I$:P=VAL(P$):IF LEN(P$)=1 THEN IF P=0 THEN GOTO 217 ELSE GOTO 220
  28. 245  P=P-9
  29. 250  IF P=I% THEN SOUND 1500,3:COLOR 7,0:CLS:NEW
  30. 260  IF P>I% OR P<1 THEN CLS:GOTO 300
  31. 270  IF PROG$(P)="MENU    " THEN CLS:GOTO 300
  32. 280  COLOR 7,0:CLS:SOUND 1000,1
  33. 290  RUN PROG$(P)
  34. 300  SOUND 912,1:SOUND 456,2:GOTO 130
  35.